home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / vol7n7.arc / TOUCH.BAS < prev    next >
BASIC Source File  |  1988-03-14  |  10KB  |  149 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE touch.COM
  2. 110 OPEN "touch.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  128 
  6. 150    LINESUM = 0
  7. 155    PRINT ".";
  8. 160    FOR J = 1 TO 8
  9. 170       READ BYTE
  10. 180       CHECKSUM = CHECKSUM + BYTE
  11. 190       LINESUM = LINESUM + BYTE
  12. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  13. 210       PUT #1
  14. 220    NEXT J
  15. 230    READ LINECHECK
  16. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  17. 250 NEXT I
  18. 260 CLOSE
  19. 270 IF CHECKSUM = 105745 THEN PRINT "Successful Completion!" : END
  20. 280 PRINT "COM file is not valid!" : END
  21. 290 DATA    233,    22,     1,    13,    32,    32,    32,    13,   378
  22. 300 DATA     10,    84,    79,    85,    67,    72,    32,    49,   478
  23. 310 DATA     46,    48,    32,    40,    99,    41,    32,    49,   387
  24. 320 DATA     57,    56,    56,    32,    90,   105,   102,   102,   600
  25. 330 DATA     32,    67,   111,   109,   109,   117,   110,   105,   760
  26. 340 DATA     99,    97,   116,   105,   111,   110,   115,    32,   785
  27. 350 DATA     67,   111,    46,    13,    10,    80,    67,    32,   426
  28. 360 DATA     77,    97,   103,    97,   122,   105,   110,   101,   812
  29. 370 DATA     32,   254,    32,    77,   105,    99,   104,    97,   800
  30. 380 DATA    101,   108,    32,    74,    46,    32,    77,   101,   571
  31. 390 DATA    102,   102,   111,   114,   100,    13,    10,    36,   588
  32. 400 DATA     13,    10,    13,    10,    83,   121,   110,   116,   476
  33. 410 DATA     97,   120,    58,    32,    32,    84,    79,    85,   587
  34. 420 DATA     67,    72,    32,   102,   105,   108,   101,   115,   702
  35. 430 DATA    112,   101,    99,    32,    91,    47,    68,    32,   582
  36. 440 DATA    100,    97,   116,   101,    93,    32,    91,    47,   677
  37. 450 DATA     84,    32,   116,   105,   109,   101,    93,    13,   653
  38. 460 DATA     10,   100,    97,   116,   101,    32,    61,    32,   549
  39. 470 DATA    109,   111,   110,   116,   104,    45,   100,    97,   792
  40. 480 DATA    121,    45,   121,   101,    97,   114,    13,    10,   622
  41. 490 DATA    116,   105,   109,   101,    32,    61,    32,   104,   660
  42. 500 DATA    111,   117,   114,    91,    58,   109,   105,   110,   815
  43. 510 DATA    117,   116,   101,   115,    91,    58,   115,   101,   814
  44. 520 DATA     99,   111,   110,   100,   115,    93,    93,    13,   734
  45. 530 DATA     10,    68,   101,   102,    97,   117,   108,   116,   719
  46. 540 DATA     32,   105,   115,    32,   115,   121,   115,   116,   751
  47. 550 DATA    101,   109,    32,   100,    97,   116,   101,    32,   688
  48. 560 DATA     97,   110,   100,    32,   116,   105,   109,   101,   770
  49. 570 DATA     46,    13,    10,    36,    26,     0,     0,     0,   131
  50. 580 DATA      0,     0,     0,     0,     0,     0,     0,     0,     0
  51. 590 DATA      0,     0,     0,     0,     0,    73,   110,   118,   301
  52. 600 DATA     97,   108,   105,   100,    32,   112,    97,   114,   765
  53. 610 DATA     97,   109,   101,   116,   101,   114,    36,    70,   744
  54. 620 DATA    105,   108,   101,    32,   110,   111,   116,    32,   715
  55. 630 DATA    102,   111,   117,   110,   100,    36,    58,    45,   679
  56. 640 DATA     47,   252,   180,     9,   186,     9,     1,   205,   889
  57. 650 DATA     33,   180,    25,   205,    33,   162,   229,     1,   868
  58. 660 DATA    198,     6,   253,     4,    92,   190,   254,     4,  1001
  59. 670 DATA     50,   210,   180,    71,   205,    33,   180,    42,   971
  60. 680 DATA    205,    33,   232,   109,     1,   137,    22,   237,   976
  61. 690 DATA      1,   180,    44,   205,    33,   232,   126,     1,   822
  62. 700 DATA    137,    22,   239,     1,   186,   225,     1,   180,   991
  63. 710 DATA      9,   205,    33,   190,   129,     0,   172,    60,   798
  64. 720 DATA     13,   116,    94,    60,    47,   117,   247,   172,   866
  65. 730 DATA     60,    13,   116,    85,    36,    95,    60,    68,   533
  66. 740 DATA    117,    38,   128,    14,   232,     1,     1,   232,   763
  67. 750 DATA    146,     1,   232,   100,     1,   116,    63,   138,   797
  68. 760 DATA    243,   232,    93,     1,   116,    56,   138,   211,  1090
  69. 770 DATA    232,    86,     1,   116,    49,   139,   203,   232,  1058
  70. 780 DATA     32,     1,   137,    22,   233,     1,   235,   198,   859
  71. 790 DATA     60,    84,   117,   194,   128,    14,   232,     1,   830
  72. 800 DATA      2,   232,   104,     1,   232,    58,     1,   138,   768
  73. 810 DATA    243,   232,    53,     1,   138,   211,   232,    48,  1158
  74. 820 DATA      1,   139,   202,   138,   243,   232,    22,     1,   978
  75. 830 DATA    137,    22,   235,     1,   235,   160,   233,   193,  1216
  76. 840 DATA      0,   190,   129,     0,   232,    69,     1,    86,   707
  77. 850 DATA     51,   219,   172,    60,    58,   117,    17,   138,   832
  78. 860 DATA     84,   254,   128,   226,    95,   128,   234,    65,  1214
  79. 870 DATA    180,    14,   205,    33,   139,   222,   235,   234,  1262
  80. 880 DATA     60,    92,   117,     2,   139,   222,    60,    47,   739
  81. 890 DATA    116,     4,    60,    32,   119,   220,   198,    68,   817
  82. 900 DATA    255,     0,   198,     6,    65,     5,    92,   190,   811
  83. 910 DATA     66,     5,    50,   210,   180,    71,   205,    33,   820
  84. 920 DATA     90,    11,   219,   116,    32,   128,   127,   255,   978
  85. 930 DATA     58,   116,    26,    83,   128,   127,   254,    58,   850
  86. 940 DATA    116,     7,   128,   127,   254,    32,   118,     1,   783
  87. 950 DATA     75,   255,    55,   198,     7,     0,   180,    59,   829
  88. 960 DATA    205,    33,   143,     7,    90,   185,     7,     0,   670
  89. 970 DATA    180,    78,   205,    33,   115,    11,   186,     7,   815
  90. 980 DATA      2,   235,    82,   180,    79,   205,    33,   114,   930
  91. 990 DATA     91,   186,   158,     0,   184,     0,    61,   205,   885
  92. 1000 DATA    33,   139,   216,   139,    14,   239,     1,   139,   920
  93. 1010 DATA    22,   237,     1,   160,   232,     1,    60,     0,   713
  94. 1020 DATA   116,    24,   139,    14,   235,     1,   168,     2,   699
  95. 1030 DATA   117,     4,   139,    14,   150,     0,   139,    22,   585
  96. 1040 DATA   233,     1,   168,     1,   117,     4,   139,    22,   685
  97. 1050 DATA   152,     0,   137,    14,   243,     1,   137,    22,   706
  98. 1060 DATA   241,     1,   184,     1,    87,   205,    33,   114,   866
  99. 1070 DATA     9,   180,    62,   205,    33,   232,   154,     0,   875
  100. 1080 DATA   235,   177,   186,   245,     1,   180,     9,   205,  1238
  101. 1090 DATA    33,   186,    88,     1,   180,     9,   205,    33,   735
  102. 1100 DATA   176,     1,   235,     2,    50,   192,    80,   186,   922
  103. 1110 DATA    65,     5,   180,    59,   205,    33,   138,    22,   707
  104. 1120 DATA   229,     1,   180,    14,   205,    33,   186,   253,  1101
  105. 1130 DATA     4,   180,    59,   205,    33,    88,   180,    76,   825
  106. 1140 DATA   205,    33,   131,   233,    80,   129,   249,   108,  1168
  107. 1150 DATA     7,   114,     4,   129,   233,   108,     7,   138,   740
  108. 1160 DATA   222,    50,   255,   208,   225,   138,   241,   177,  1516
  109. 1170 DATA     5,   211,   227,    11,   211,   195,   139,   217,  1216
  110. 1180 DATA   177,     9,   211,   234,   177,     3,   210,   231,  1252
  111. 1190 DATA   138,   247,   177,     5,   211,   227,    11,   211,  1227
  112. 1200 DATA   195,    51,   219,   172,   191,    22,     2,   185,  1037
  113. 1210 DATA     3,     0,   242,   174,   116,   245,   177,    10,   967
  114. 1220 DATA    50,   228,    60,    13,   116,    18,    60,    48,   593
  115. 1230 DATA   114,    14,    60,    57,   119,    10,    44,    48,   466
  116. 1240 DATA   147,   246,   225,     3,   216,   172,   235,   232,  1476
  117. 1250 DATA    78,    11,   219,   195,   172,    60,    32,   119,   886
  118. 1260 DATA     7,    60,    13,   117,   247,   233,   106,   255,  1038
  119. 1270 DATA    78,   195,   190,   158,     0,   191,   133,     5,   950
  120. 1280 DATA   176,    32,   185,    40,     0,   243,   170,   191,  1037
  121. 1290 DATA   133,     5,   185,    12,     0,   172,    60,     0,   567
  122. 1300 DATA   116,    19,    60,    46,   117,    12,   131,   233,   734
  123. 1310 DATA     3,   176,    32,   243,   170,   131,   193,     3,   951
  124. 1320 DATA   235,   235,   170,   226,   232,   176,    32,   243,  1549
  125. 1330 DATA   170,    87,   131,   199,     8,   139,    22,   154,   910
  126. 1340 DATA     0,   161,   156,     0,   187,    10,     0,   253,   767
  127. 1350 DATA   139,   202,    51,   210,   247,   243,   145,   247,  1484
  128. 1360 DATA   243,   146,     4,    48,   170,   139,   193,    11,   954
  129. 1370 DATA   202,   117,   237,   252,    95,   131,   199,    11,  1244
  130. 1380 DATA   139,    22,   241,     1,   139,   194,   177,     5,   918
  131. 1390 DATA   211,   232,    37,    15,     0,   177,   255,   181,  1108
  132. 1400 DATA    45,   232,   108,     0,   139,   194,    37,    31,   786
  133. 1410 DATA     0,    50,   201,   181,    45,   232,    96,     0,   805
  134. 1420 DATA   139,   194,   177,     9,   211,   232,     5,    80,  1047
  135. 1430 DATA     0,    61,   100,     0,   114,     3,    45,   100,   423
  136. 1440 DATA     0,    50,   201,   181,    32,   232,    72,     0,   768
  137. 1450 DATA    71,   139,    22,   243,     1,   139,   194,   177,   986
  138. 1460 DATA    11,   211,   232,    80,    61,    12,     0,   118,   725
  139. 1470 DATA     3,    45,    12,     0,    61,     0,     0,   117,   238
  140. 1480 DATA     3,   184,    12,     0,   177,   255,   181,    58,   870
  141. 1490 DATA   232,    37,     0,   139,   194,   177,     5,   211,   995
  142. 1500 DATA   232,    37,    63,     0,    50,   201,    90,   181,   854
  143. 1510 DATA   112,   131,   250,    12,   115,     2,   181,    97,   900
  144. 1520 DATA   232,    13,     0,   190,   225,     1,   165,   164,   990
  145. 1530 DATA   186,   133,     5,   180,     9,   205,    33,   195,   946
  146. 1540 DATA   246,   243,     5,    48,    48,   128,   249,     0,   967
  147. 1550 DATA   116,     6,    60,    48,   117,     2,   176,    32,   557
  148. 1560 DATA   171,   138,   197,   170,   195,     0,     0,     0,   871
  149.